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TITLE: 
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SYMBOIS: 



DURATION: 



LIMITATIONS: 



METHOD OF USE: 



DATA TAPE: 



PURPOSE: 



NOTE 1: 



Page Output Correlations 

Entire Program 

n Order of the correlation matrix 
d Decimal places in the correlations 

•025 n 2 (d + l) seconds 

2 < n < ikQ; 3 < d < 9 (See Note l) 

Stops 

1. Master tape ?401K 

2. Data tape 2k0^6 

Raise the black switch if complete data has "been read. 

Raise the white switch to continue reading data. 
After the results are punched, routine will stop on 
2^01K. To begin a new problem, insert next data tape, 
and raise black switch. 

The data tape consists of the output from routines K-8, 
K-9, KSL 2 .1*0, or any other triangular matrix of correlations. 
These are fractions, scaled by 10" 1 , punched in the 
following order: r^, r 10 , r u , ..., r n . x n-1 . 
The machine records the number of fifth-hole characters 
after the first diagonal entry. Whenever the number of 
fifth-hole characters on subsequent diagonal entries exceeds 
the number after the first, the machine will stop on 2^56 • 
If the black switch is raised, the machine will punch 
the results. If the complete matrix has not been read, 
raising the white switch will direct the machine to 
continue reading the tape until the next time an extra 
fifth-hole character is encountered. 

The purpose of this routine is to read a triangular matrix 
of correlations, and to punch these back onto the tape, 
unsealed, and in page form, with the columns and rows 
correctly labeled with column and row numbers running . 
from 1 through n. 

In the special case when d = 3 and n exceeds 99 s f° r 
column headings greater than 99 , not enough space on the 
page is available to print three-place column headings. 
Consequently the column headings will be out of line with 
the columns. Otherwise, the results will be punched 
correctly. 
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MOTE 2: 
NOTE 3: 



In reading the master tape, a sum check failure is 
Indicated by an FF stop from location 0J7» 

Tests are made in the diagonal entries to determine if 

the first characters are a positive sign followed by a 

1. A stop on FF has the following meanings 

Location Meaning 

OIF No + for first diagonal entry 

021 No 1 for first diagonal entry 

0k$ No + for subsequent diagonal entry 

OkV No 1 for subsequent diagonal entry 

Raising the -white switch for any of these stops, will 

cause the computer to continue to read. 
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KSL 5.57 



Abs. 



Rel. 



Sym. 









003K 




5 






OOF 00220F 




■* 




(I) 


OOF OOF 




5 




(J) 


OOF OOF 




6 




(K) 


OOF OOF 




7 




(L) 


OOF OOF 




8 




(R) 


OOF OOF 




9 




(c) 


OOF OOF 




10 




(r-c) oof oof 




11 




(JB) 


OOF OOF 




12 




(JE) 


OOF OOF 




13 




(x) 


OOF OOF 


by 18(RD) 


14 




(N) 


OOF OOF 




15 




(5) 


OOF OOF 


by 10 (RD) 


16 




(o) 


OOF OOF 




17 




(961 ; 


00961F OO96IF 




18 




(D) 


OOF OOF 


by 8(RD) 


19 




(10) 


OOF 0010F 




20 




(70) 


OOF OO67F 




21 




(wi) 


50(0) 401S3 




22 




(W2) 


LD.(W3) 3611 (RS) 




23 




(W3) 


50(0) 401024F 




24 




(w4) 


8611F 002560F 




25 




(W5) 


266 (RS) OOF 
OOK 




26 




1 
2 

3 
4 

5 
6 

7 
8 


(RD) 


41 (N) 41(5) 
4l(D> 8l4F 
L0(10) 40F 
L3F 324L 
FFF 8l4F 
F0(0) 40F 
L3F 327L 
FFF 8l4F 
F5(D) 42(D) 





Store of triangular matrix 

Row 

Column 



Temporary Storage row 

Temporary Storage column 

Temporary r-c 

Initial column for page 

Final column for page 

Number of columns per page 

Order of matrix I 

Number of 5th-hole ch., 1st diagonal 



Digits per no., after + 1 

Maximum digits allowed per page 
To preset 3(RS) 

To preset 5(RS) 

Test for drum store 

Initial drum order 

To set 5(RS) for drum store 

Begin I I 

To read first diagonal and preset 
addresses 

Test for first positive sign 



Test for 1 after 1st positive sign 



Tally remaining digits at (D) 



LOCATION 


ORDER 


HOTES PAGE 2 


KSL 5.57 


Abs. 


Rel. 1 


3ym. 


9l4F 368L 










9 








10 




F5(5) 42(5) 




Tally 5th-hole char, at (5) 




11 




9l4F 3212L 










12 




2610L 401F 










13 




F5(N) 40(H) 




Increase order 






14 




F5(d) l4(o) 










15. 




50(0) 0020F 










16 




kO (K) L5(70) 










17 




66 (K) S5F 










18 




1019F kO (x) 




Calculate number of cols, at (X) 




19 




L5(W1) 403(RS) 




Preset (RS) 






20 




L5(W2) 405(RS) 




Preset (RS), (CP), (AD) 






21 




50(0) L5(D) 










22 




002F 4219 (RS) 










23 




4221 (AD) 0020F 










24 




46lO(RS) L4(96 


1) 








25 




46l3(AD) F5(D) 










26 




0022F 462 (RS) 










27 




L5(10) FO(D) 










28 




002F 422 (RS) 










29 




L5(D) 0020F 










30 




462 (CP) 26 (RS) 
OOK 






- 


57 




1 

2 


(RS) 


4l(j) L51F 
FO(lO) 369L 
8lF OOF 


by 26 (RD), 28 (RI 


Read matrix and store 
» 






3 




50(0) 40F 


by 19 (RD), 11L 


Store / place on drum 






* 




F53L 403L 










5 




L0(W3) 3611L 


by 20 (RD), 12L 


Test for drum address 






6 




F5(J) 42 (J) 










7 




lo(h) 3213L 




Test for diagonal 






8 




8l4F 26lL 










9 




8l4F F5(10) 




It is a negative number 





LOCATION 



Abs. 



86 



96 



Rel. 

ii 

10 
11 
12 
13 
Ik 

15 
16 

17 
18 

19 

20 
21 
22 

23 
2k 

25 
26 

27 
28 



1 
2 
3 

5 
6 

7 
8 

9 



1 



Sym. 



(PR) 



(PG) 



ORDER 



80F 222L 
L5(w4) 403L 
L5(W5) 405L 

266l 8i4f 

LO(lO) kOF 
L3F 3216L 
FFF 8l4F 
F0(0) 40F 
L3F 3219L 
FFF 8lF 

kl (K) F5(N) 
42 (N) 91^F 
3625L F5(K) 
42 (K) F0(5) 
3627L 2221L. ' 
401F F53L 
403L 26L 
2k (PR) 8l4F 
2625L OOF 

OOK 

9259F 92143F 
92259F 92965F 
92835F 92578F 
92262F 92194F 
92962F 92387F 
92322F 92514F 
92578F 92770F 
92706F 92707F 
92135F 92519F 
26(ERT) OOF 

OOK 

K5F 4214L 

41 (I) L5(JB) 
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by 24(RD) 



from 7L 



by 22 (RD) 



from 27(RS) 



from 5, 9(PRT) 



Rewrite 3(RS) and 

5(RS) for drum storage 
It is a diagonal 

Test for sign 



Test for 1 



Increase order 



Test for 5th-hole delays 



Stop: to continue reading raise 
white switch 



Print: CORRELATIONS 



Subroutine to print a pagd 



LOCATION 



Abs. 



Ill 



L67 



178 



Rel. 



2 

3 
4 

5 
6 

7 
8 

9 
10 
11 
12 

13 
14 




1 
2 
3 

5 

6 

7 
8 

9 
10 


1 
2 
3 

5 



Sym. 



ORDER 



(PRT) 



(CP) 



40 (J) F5(I) 
J23F 503L 
26(pi6) 92965F 
50(0) 505L 
26(AD) F5(J) 
42 (j) LO(JE) 
369L 225L 
92131F 92519F 
P5(I) 42(1) 
LO(N) 3212L 
221L L5(JE) 
4o(jb) 9259F 
92139F 22F 



(Pl6) OOK 



OOK 

4l(jB) L5(JB) 
40(C) L4(X) 
4o(je) LO(N) 
366L 503L 
26 (CP) 504L 
26 (PG) 22L 
L5(N) 4o(je) 
50(0) 507L 
26 (CP) 508L 
26 (PG) 921001F 
92135F 24 (RD) 

OOK 

K5F 427L 
92981F F5(C) 
J2P 502L 
26(Pl6) F5(C) 
42(C) LO(JE) 
366L 221L 



NOTES 
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from 9 (PR) 



from 4,8(PRT) 



by 30 (RD) 



Print row heading 
Print correlation 
Test for end of row 

Test for end of page 



Print routine 
Main routine 

Set end col. number 

Print col. headings 

Print a page 

It is the last page 



Print col. headings for final page 

Print final page 

Stop: black for new problem 

I 

Subroutine to print col. headings 



LOCATION 



Abs. 



186 



Rel. 



6 
7 



1 
2 

3 
4 

5 
6 

7 
8 

9 
10 
11 
12 

13 
14 

15 
16 

17 
18 

19 

20 
21 
22 

23 
24 

25 
26 
27 


1 
2 



Sym. 



ORDER 



(AD) 



92135F 92515F 
50(0) 22F 

OOK 

K5F 4222L 
L5(J) 40(c) 
L5(I) 4o(R) 
LO(C) 40(R-C) 
3211L L5(J) 
^0(R) L5(I) 
^O(C) 41 (L) 
4l(K) LO(R) 
36l4L F5(K) 

^2(K) L4(L) 
^O(L) L5(K) 
227L L3(R.-C) 
3613L 226L 
92F 2222L 
L5(L) L4(c) 
L43F 4217L 
L023L 5625L 
001F L5F 
401F 3620L 
92706F 2220L 

92961F L51F 

004F 82F 

4l(L) 22F 

OOF 001024F 

85IIF 002560F 

L424L 4026L 

OOF OOF 
26l8L OOF 
OOK 

L3F 34 (RD) 

FFF 26 (RD) 
L80307F 133774? 
26L261N 



NOTES 
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from 6(PG) 



by 25 (RD) 



by 15L 



by 23(RD) 



Subroutine to calculate addresses 
and print r. 



Exchange I and J 



Calculate address at L 
Test for diagonal 
Print spaces 

Test for drum address 

r is negative 
r is positive 



Initial drum address 

Read from drum 
Sum check 



